home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / D51_NUSource / Source / DOpusFuncs / WinSwap.s < prev   
Text File  |  1995-09-24  |  1KB  |  35 lines
  1. ***************************************************************************************
  2. * WinSwap subroutine for DOpusFuncs.s                              *
  3. ***************************************************************************************
  4. WinSwap
  5.     Tst.l    WinSwap_S(a5)
  6.     Bne.s    WinSwap_DoIt
  7.     RTS
  8. WinSwap_DoIt
  9.     Sub.l    d0,d0            Abort if there isn't a source lister.
  10.     Bsr    GetSourceHandle        Get the source lister's handle -> Source_Handle
  11.  
  12.     Sub.l    d0,d0            Abort if there isn't a dest lister.
  13.     Bsr    GetDestHandle        Get the dest lister's handle -> Dest_Handle
  14. ;-------------------------------------------------------------------------------------;
  15.     Lea    Source_Handle(a5),a0    -.
  16.     Lea    PathBuffer1(a5),a1     |_ Source path
  17.     Move.w    #PathBuffer1Len,d7     |  to PathBuffer1
  18.     Bsr    GetListerPath        -'
  19.  
  20.     Lea    Dest_Handle(a5),a0    -.
  21.     Lea    PathBuffer2(a5),a1     |_ Dest path
  22.     Move.w    #PathBuffer2Len,d7     |  to PathBuffer2
  23.     Bsr    GetListerPath        -'
  24. ;-------------------------------------------------------------------------------------;
  25.     Sub.l    d0,d0            Don't force into current path buffer.
  26.     Lea    Source_Handle(a5),a0    -.
  27.     Lea    PathBuffer2(a5),a1     |- Read old Destination path -> Source.
  28.     Bsr    ReadListerPath        -'
  29.  
  30.     Sub.l    d0,d0            Don't force into current path buffer.
  31.     Lea    Dest_Handle(a5),a0    -.
  32.     Lea    PathBuffer1(a5),a1     |- Read old Source path -> Destination.
  33.     Bra    ReadListerPath        -'
  34. ;;;;;;;    RTS for us.
  35.